Attempt to avoid crashes in plist-member

* src/fns.c (Fplist_member): Don't call QUIT between a CONSP test
and a call to XCDR.  (Bug#21655)

diff --git a/src/fns.c b/src/fns.c
index b31bd817c44ccc08ccfa2d20ed943ced76558be1..dfd48a297a6b557b7807c96178df163dd5d60238 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2875,9 +2875,9 @@ The value is actually the tail of PLIST whose car is PROP.  */)
 {
   while (CONSP (plist) && !EQ (XCAR (plist), prop))
     {
-      QUIT;
       plist = XCDR (plist);
       plist = CDR (plist);
+      QUIT;
     }
   return plist;
 }